Univers Mac Interactif 42/Univers Mac Interactif - Issue 42.iso/>interactif/Démos Voyager/WWIN.DIR/00098_Script_MOVIE SCRIPT

Text File | 1994-10-20 | 1KB | 82 lines

on startMovie
  cursor 200
end startMovie

on waitQT chan
  if the movieRate of sprite chan = 1 then go the frame
end

on waitSnd chan
  if soundBusy(chan) then go the frame
end

on waiting theTicks
  --must be preceded by startTimer
  if theTicks >= the timer then go the frame
end

on setCheck
  global checkNum
  set checkNum = 1
end setCheck

on PictPrize
  --this selects the opening graphic
  put random(5) into numGo
  if numGo = 1 then
    set the castNum of sprite 18 to 95
  end if
  if numGo = 2 then
    set the castNum of sprite 18 to 96
  end if
  if numGo = 3 then
    set the castNum of sprite 18 to 94
  end if
  if numGo = 4 then
    set the castNum of sprite 18 to 97
  end if
  if numGo = 5 then
    set the castNum of sprite 18 to 4
  end if
  updateStage
end PictPrize

on enterframe
  cursor 200
end

--THESE ARE NOT USED?
on Roam1
  put random(6) into numZo
  if numZo = 1 then
    fun
  end if
  if numZo = 2 then
    flyguy
  end if
  if numZo = 3 then
    Spider
  end if
  if numZo = 4 then
    Kissn
  end if
  if numZo = 5 then
    BaDream
  end if
  if numZo = 6 then
    Roadside
  end if
end Roam1

on Roam2
  go to frame "toRun"
end Roam2

on KeyDown
  global autoplaying
  put 0 into autoplaying
  unloadCast
  puppetSprite 18, false
  go to label ("exit")
end